> missmap(copy_iris)
> copy_iris<-iris
> dim(copy_iris)
[1] 150 5
> copy_iris[sample(1:150, 30), 1]<-NA
> copy_iris<-copy_iris[complete.cases(copy_iris), ]
> dim(copy_iris)
[1] 120 5
> copy_iris<-iris
> copy_iris[sample(1:150, 30), 1]<-NA
# 평균 대치법
> meanValue<-mean(copy_iris$Sepal.Length, na.rm=T)
> copy_iris$Sepal.Length[is.na(copy_iris$Sepal.Length)]<-meanValue
# centralImputation()을 활용한 중앙값 대치
> library(DMwR2)
> copy_iris[sample(1:150, 30), 1]<-NA
> copy_iris<-centralImputation(copy_iris)
> copy_iris<-iris
> copy_iris[sample(1:150, 30), 1]<-NA
> copy_iris<-knnImputation(copy_iris, k=10)
> copy_iris<-iris
> copy_iris[sample(1:150, 30), 1]<-NA
> library(Amelia)
# cs는 cross-sectional 분석에 포함될 정보를 의미
> iris_imp<-amelia(copy_iris, m=3, cs='Species')
-- Imputation 1 --
1 2 3
-- Imputation 2 --
1 2 3
-- Imputation 3 --
1 2 3
> copy_iris$Sepal.Length<-iris_imp$imputations[[3]]$Sepal.Length